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EDTSCHMMESS = output a message 6-Sep- 4:03 VAX-11 Bliss-32 V4.0-74 Page 1 
4-Sep- 198 99:9 7:22:58 DISK KSVMGN TER: CE EDT SRCICHMMESS .BLI:1 . (1) 
; 1 001 ZTITLE ‘EDTSCHMMESS = output a message’ ; 
; § Oe MODULE EDTSCHMMESS ( ! Output a erssege : 
; ? tg {DENT = 'v04-000' ! File: CHMMESS.BLI Edit: J8S1010 : 
; = ; 
3 5 005 1 BEGIN ‘ 
; 6 0006 1! ; 
s ‘ sitie4 ! eee ER ARERR RARER AARAERAAAAEAEAAETEH ERATE RARE E EERE EARAReeHeeeee eee Py 
; ie : 
: % Ba08 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * ; 
; 10 010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * : 
: V) O01 : :* ALL RIGHTS RESERVED. * ‘ 
: 'e cy P 
: ig 818 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE a MAY BE USED AND gl Li * ’ 
. > oe 0014 1 !* ONLY IN ACCORDANCE WITH THE TERM F SUCH LICENSE AND WITH THE * ‘ 
; 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
; 16 B98 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
: 17 001 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
; Hs dt : to TRANSFERRED. * ; 
2 '@ © ° 
: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ? 
: 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT . . 
3 $8 O0ss ; :* CORPORAT ION. » 3 
: '@ ® ° 
> dh 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
eS 0025 1 i* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. - : 
; @ 0026 1 !* . ; 
..- ar 0027 1 !* * : 
3 28 0028 1 lee eeeeee rere eae eee eee A TETRA AAA ATER AAKE ETAT AA AREA E Kee eee b 
2 oo? 1! : 
; » 0030 1 : 
ei: a 0031 1 !+¢ 3 
; 32 ORs 1! FACILITY: EDT -=- The DEC Standard Editor : 
:. 2 0033 1! 3 
; 34 0034 1 | ABSTRACT: : 
: 2 0035 1! 3 
; = te) | This module outputs a message on the Last Line of the terminal. . 
3 $e sit 4 : ENVIRONMENT: Runs at any access mode - AST reentrant : 
; re ones ! AUTHOR: Bob Kushlis, CREATION DATE: Unknown : 
5s é6 0042 1 ! MODIFIED BY: 3 
s 65 0043 1: 3 
3; «644 0044 1 ! 1-001 = Original. DJS 04-Feb-1981. This module was created b 3 
s 6§ 0045 1! ontrect ing the routine EDTSS$OUT 3"s¢ from module CHANGE. bur. : 
; & BOs8 1 ' 1-00 Regularize headers. JBS 03-Mar-1981 3 
; «47 0047 1 | 1-003 - Make this peut tae © 9" GRste s for case Aer or strings. SMB 30-Jun-1982 : 
; «648 0048 1 | 1-004 - Remove settin I1_WRSTR in cose CPY change mode. SMB 02-Jul-1982 : 
: | «649 0049 1 | 1-005 - Set EDT$$G_LA THSG. “JBS 05-Jul-19 3 
; @ 0050 1 ! 1-006 = Cail EDTSSFMT_STR instead of LOTSSrAr LIT, so EDTS$G_PRV_COL will be ; 
... oF 0051 1: kept to date. JBS 05-Oct- : 
; 26 8038 1 | 1-007 - = . i ear EDIS$G_ 5 CR_CHGD. JBS 09-Oct-1982 3 
3 053 1! 1-008 - ayes d most of the” fonty stuff if we are in hardco change mode. JBS 16-Nov-1982 3 
: ee Bpee 1 1-303 - Check for terminal type unkown also. SMB 03-Dec-1 3 
: 36 0056 : ‘ 1-010 - Treat message number 0 as meaning no message. JBS 01-Apr-1983 : 
: 57 0057 1 ; 


i EXTERNAL REFERENCES: 
i In the routine 
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EDTSCHMMESS EDTSCHMMESS = output a message 16- -$ep-1984 VAX-11 Bliss-32 V4.0-7 

aH S500 ial aeon tate ° 14- ~tep -1 1382 99: 93: 3 DISKSVMSMASTER: tt i’sRe CHMMESS.BLI;1 page (2s 
: Fes 28 ! postr Declarations 
FY 6) re : TABLE OF CONTENTS: 
: 6 062 1. 
7 (64 1 REQUIRE 'EDTSRC:TRAROUNAM'; 
; 665 8 1 ; 
3 66 8 1 FORWARD ROUTINE 
3 14 Bahe : EDTSSOUT_MSG : NOVALUE; ! Output a message on the last Line of the terminal 
: 8 209 1 i 
ace B297 1 
ee 510 1 REQUIRE "EDTSRC:EDTREQ’; 

Ss 0645 1 
; £5 0646 1! 
5 76 0647 1 ! MACROS: 
BR aa 0648 1! 
; | «678 0649 1! NONE 
3 79 0650 1! 
; 80 0651 1 ! EQUATED SYMBOLS: 

: $1 oth 1! 
3 82 065 1! NONE 

‘> Os 0654 1! 
: 84 0655 1 ! OWN STORAGE: 
; 85 0656 1! 
: 86 0657 1! NONE 
s 687 0658 1! 
; 88 0659 : 
: 1 i 
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! IMPLICIT INPUTS: 
EDTSSA_FMT_WRRUT 

GE _LINE 
P 
IMPLICIT OUTPUTS: 


EDTS$G_PRV_COL 
< he 


EDT$$G_LASTMSG 
i ROUTINE VALUE: 


SIDE EFFECTS: 


E 
Sao? ae NONE, 
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16-Sep-1984 00:04: VAX-11 Bliss-32 V4.0-74 P 
12-8 08=13Re 90:95:93 DLEKSVMGMASTERSCEDT SRCSCHMMESS .BLI:T” 


Output a message 

Line number for this message 
The — number to output 
Address of a string 

Length of a string 


+ 
FUNCTIONAL DESCRIPTION: 


This routine outputs a message on the last Line of the terminal. 
The input parameters are the Line position for the message, 

the message number (if it is a message), or the message string and 
if no message number is present. 


FORMAL PARAMETERS: 


The Line number on which to print message 
The number of the message to output 

The address of a string message 

The Length of the string message 


! Stop the working message 
' Put a string in format buffer 

! Output the ornat buffer 

' Put cursor position in format buffer 


kK 2 
EDTSCHMMESS EDTSCHMMESS © output a message 16-Sep-1984 00:04: VAX-11 Bliss-32 V4.0-74 Page 4 
104-600 EDTSSOUT_MSG - output a nessege 1228 8-138e 99:93:98 DISKSVMSMASTER CED SRCICHMMESS .BLI:1 . (3). 
49 719 EDTSSSC_ERATOEOL, ! Erase to end of Line 
0 720 EDTSS$SC_REVID ! Start reverse video 
i , 1 EDTSSMSG_TOSTR; i Get message text 
§ 07 ; _—— 
54 0724 EDTS$G_MESSAGE LINE, ' Message Line 
55 0725 EDT$$G_TIN ECHOPOS, ' Column to start message echo 
56 0726 EDTSS$G_MSGFLG, ' 1 = erase the message Line on the next keystroke 
57 0727 EDTS$G_PRV_COL, ! Previous column number. | 
58 0728 EDTSS$G_LASTMSG, ! The Last message printed 
4 44 3 EDTSS$G_TI_TYP; ! The type of the terminals | 
61 oF 1 EDTSSSTOP_WKINGMSG (); 
e8 07 : i If the message is being printed on the Last Line, then we want it to 
0734 : Stay there until the user hits a key, but we don't want to issue the 
0735 ! PRTC message. 
rg | 
73 IF (.POS EQL .EDTS$G_MESSAGE_LINE + 1) 
73 THEN 


BEGIN 
EDT$$G_TIN_ECHOPOS = 0; 
EDTSSG_MSGFLG = 1; 


don't do anything fancy if this is a hard copy terminal. 

Nt hie NEQ TERM_HCPY) AND (.EDTS$G_TI_TYP NEQ TERM_UNKNOWN) 
+ BEGIN 

; Force the cursor to the indicated line and column 

EDTSSSC_POSCSIF (.POS, .EDT$$G_TIN_ECHOPOS); 

i Erase the Line. 

EDTSSSC_ERATOEOL (); 


09.00 09 G9 09 00 09 09 09 09 SINSINI NINN NINN NIOA AOA 


Turn reverse video on. 
EDTS$S$SC_REVID (); 
END; 
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90 

4 

98 

G4 6 

95 65 

96 76 + 

97 76 ! Get the message. 

98 768 !e 

199 769 

00 770 IF (.LEN NEQ 0) 

01 771 THEN 

4 re BEGIN 

0 77 EDTSSFMT_STR (.ADDR, .LEN); 
04 774 EDTS$G_LASTMSG = 1; 
05 775 END 
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EDTSCHMMESS EDTSCHMMESS = output a message 1$-Sep-1 4 VAX-11 Bliss-32 V4.0-74 Pa 
OL 500 EDTSSOUT_MSG = output a mestege ) a os 198 99: 93; 3 DISKSVMSMASTER: CEDT. SRCJCHMMESS.BLI; 1 = (33 
; 77 ELSE 
2 ie a ere ry 
3 9 re sae 
; 10 780 csiy 
: 21) 781 Prt SMSG_TOSTR (.MESS); 
: 3 7 j ED DIS$6 _LASTMSG = .MESS; 
3 (' 7 END 
3; 2146 0784 
: 215 0785 ‘+ 
3 16 p76 i Write out the buffer. 
: el? O78 ie 
; 218 788 EDTSSOUT_FMTBUF (); 
; ev 0789 END; ! of routine EDTSSOUT_MSG 
TITLE EDTSCHMMESS EDTSCHMMESS = output a message 
IDENT \vV04-000\ 
.EXTRN EDTS$$STOP_WKINGMSG 
EXTRN EDTSSFMT_STR, EDTSSOUT_FMTBUF 
EXTRN EDTSSSC_POSCSIF 
-EXTRN EDTSS$SC"ERATOEOL 
.EXTRN EDTSS$SC~REVID EDTSSMSG_ TOSTR 
EXTRN EDT$$G_MESSAGE_LINE 
EXTRN EDTS$$G_TIN “ee POS 
-EXTRN EDTSSG"MSGFLG, EDT$$G_PRV_COL 
EXTRN EDTSSG-LASTMSG, EDT$$G_TI-TYP 
.PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
001¢ 00000 ENTRY EDTSSOUT_MSG, Save R2,R3,R4 + 0664 
54 000000006 00 9€E 00002 V EDT$$G_LAST : 
53 000000006 00 9E 00009 MOVAB T$$G-TIN E CHOPOS R3 : 
009000006 00 00 FB 00010 CALLS #0, EDTS$$STOP_WKINGM : 073 
50 000000006 00 01 C1 00017 ADDL3 #1, EDT$$G TMESSAGE. LINE, RO : 073 
50 04 AC D1 0001F CMPL POS, RO ; 
99 12 00023 BNEQ ~=1$ : 
63 D4 909 5 CLRL EDTS$G TIN. ECHOPOS : 0741 
000000006 00 01 DO 00027 MOVL = #1 ETS GFLG : 0742 
50 000000006 00 00 000 . 1$: MOVL EDT $$6_ 7 ore + 0749 
03 50 D1 000 CMPL ; 
1E 13 00038 BEQL Be. F 
50 d3 99 A TSTL RO ; 
1A 13 0003C BEQL 2$ : 
63 0D 000 PUSHL EDT$$G_TIN_ECHOPOS : 0755 
04 AC DD 0004 PUSHL POS : 
000000006 00 08 FB 0004 CALLS a2, EDTS$SC_POSCSIF F 
000000006 00 00 FB OA CALLS #0, EDTS$$SC~ERATOEOL : 075 
000000006 00 00 F 51 CALLS #0, EDTS$$SC“REVID : 076 
10 AC 05 00058 2s: TSTL LEN : 077 
10 1 058 BEQL : 
7E 0c ac 70 0005D MOVO ADDR, -(SP) : 077 
000000006 00 0¢ FB 61 CALLS #2, EDTSSFMT_STR : 
D 68 OVL #1, EDT$$G_LASTMSG : 0774 
12 11 00068 BRB 4$ ; 077 
AC DO 0006D 38: MOVL MESS, R2 ; 077 


, | 
Rushbo Biesourcasc CUhUE A? message. 19860-1384 99:95:08 WN dmBhAS fens CLOT sheScHMmess.eL1:12%° 3s 


DD USH R ; 0781. 
000000006 00 4, CALL #1, EDTSSMSG_TOSTR ; 
64 D0 0007¢ MOVE. 2; EDT$$G_LASTMSG : 0782. 
000000006 00 FB 7F 4$ CALLS #0, EDTSSOOT_FMTBUF ; 078 
04 00086 RET : 0789 
; Routine Size: 135 bytcs, Routine Base: _EDTSCODE + 0000 


$30 0790 1 
21 0791 1 !<BLF/PAGE> 


if 2 
EDTSCHMMESS EDTSCHMMESS = output a message 6-Sep-1984 VAX-11 Bliss-32_V 
104-000 EDTSSOUT MSG - output 3 message 4- r-298- 1982 9: $3 83 DISKSVMSMASTER: cto i SRCSCHMMESS..BLI:1 1 med 
3 0792 1 END ! of module EDTSCHMMES 
384 $738 | seg 
5 0794 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 135 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
osseous “= Syabols ooo-ee-- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CEDT .SRCJEDT.L32;1 377 2 0 40 00:00.2 
~$255$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 
SLISS/CHECK SCE FELD, INET IAL OPT IRIZE) /MOTRACEBACK/L [SL 158: CHANESS/OB JORIS: CHESS MSRC$: CHMMESS .BLI/UPDATE=(ENH$: CHMMESS 


; Size: 135 code + 0 data bytes 
; Run Time: 00:11.9 

; Elapsed Time: 00:15.0 

; Lines/CPU Min: 4006 


; Lexemes/CPU-Min: 10289 
: pe | Used: 72 pages 
; Compilation Complete 


DIGITAL EQUIPMENT CORPORATION: 
CONFID 


ENTIAL -AND PROPRIETARY 


